home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / getmoney / about.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  5.9 KB  |  184 lines

  1. VERSION 2.00
  2. Begin Form AboutBox 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00808000&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "About"
  7.    ClientHeight    =   4350
  8.    ClientLeft      =   2655
  9.    ClientTop       =   2760
  10.    ClientWidth     =   4065
  11.    ControlBox      =   0   'False
  12.    Height          =   4755
  13.    Left            =   2595
  14.    LinkMode        =   1  'Source
  15.    LinkTopic       =   "Form2"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   4350
  19.    ScaleWidth      =   4065
  20.    Top             =   2415
  21.    Width           =   4185
  22.    Begin PictureBox Label3D1 
  23.       BackColor       =   &H000000FF&
  24.       Height          =   1000
  25.       Left            =   0
  26.       ScaleHeight     =   975
  27.       ScaleWidth      =   975
  28.       TabIndex        =   0
  29.       Top             =   0
  30.       Width           =   1000
  31.       Begin CommandButton AboutOk 
  32.          Caption         =   "&OK"
  33.          Default         =   -1  'True
  34.          Height          =   492
  35.          Left            =   840
  36.          TabIndex        =   6
  37.          Top             =   3480
  38.          Width           =   2172
  39.       End
  40.       Begin Line Line1 
  41.          X1              =   120
  42.          X2              =   3720
  43.          Y1              =   2520
  44.          Y2              =   2520
  45.       End
  46.       Begin Label Label1 
  47.          Alignment       =   2  'Center
  48.          AutoSize        =   -1  'True
  49.          BackColor       =   &H00808000&
  50.          Caption         =   "Camarillo, CA  93012-5425 USA"
  51.          Height          =   240
  52.          Index           =   10
  53.          Left            =   372
  54.          TabIndex        =   11
  55.          Top             =   2160
  56.          Width           =   3204
  57.       End
  58.       Begin Label Label1 
  59.          Alignment       =   2  'Center
  60.          AutoSize        =   -1  'True
  61.          BackColor       =   &H00808000&
  62.          Caption         =   "5241 Mission Oaks Blvd., #377"
  63.          Height          =   240
  64.          Index           =   9
  65.          Left            =   444
  66.          TabIndex        =   10
  67.          Top             =   1920
  68.          Width           =   3084
  69.       End
  70.       Begin Label Label1 
  71.          Alignment       =   2  'Center
  72.          AutoSize        =   -1  'True
  73.          BackColor       =   &H00808000&
  74.          Caption         =   "FAX: (805) 482-6213"
  75.          Height          =   240
  76.          Index           =   8
  77.          Left            =   936
  78.          TabIndex        =   9
  79.          Top             =   1560
  80.          Width           =   2100
  81.       End
  82.       Begin Label Label1 
  83.          Alignment       =   2  'Center
  84.          AutoSize        =   -1  'True
  85.          BackColor       =   &H00808000&
  86.          Caption         =   "UNREGISTERED COPY"
  87.          ForeColor       =   &H000000C0&
  88.          Height          =   240
  89.          Index           =   5
  90.          Left            =   720
  91.          TabIndex        =   8
  92.          Top             =   3000
  93.          Width           =   2364
  94.       End
  95.       Begin Label Label1 
  96.          Alignment       =   2  'Center
  97.          AutoSize        =   -1  'True
  98.          BackColor       =   &H00808000&
  99.          Caption         =   "REGISTERED TO:"
  100.          Height          =   252
  101.          Index           =   4
  102.          Left            =   960
  103.          TabIndex        =   7
  104.          Top             =   2640
  105.          Width           =   1932
  106.       End
  107.       Begin Label Label1 
  108.          Alignment       =   2  'Center
  109.          AutoSize        =   -1  'True
  110.          BackColor       =   &H00808000&
  111.          Caption         =   "GetMoney Version"
  112.          Height          =   195
  113.          Index           =   0
  114.          Left            =   1140
  115.          TabIndex        =   5
  116.          Top             =   120
  117.          Width           =   1575
  118.       End
  119.       Begin Label Label1 
  120.          Alignment       =   2  'Center
  121.          AutoSize        =   -1  'True
  122.          BackColor       =   &H00808000&
  123.          Caption         =   "
  124.  Copyright 1993, Graphic Impact"
  125.          Height          =   240
  126.          Index           =   1
  127.          Left            =   288
  128.          TabIndex        =   4
  129.          Top             =   360
  130.          Width           =   3396
  131.       End
  132.       Begin Label Label1 
  133.          Alignment       =   2  'Center
  134.          AutoSize        =   -1  'True
  135.          BackColor       =   &H00808000&
  136.          Caption         =   "All Rights Reserved"
  137.          Height          =   240
  138.          Index           =   2
  139.          Left            =   924
  140.          TabIndex        =   3
  141.          Top             =   600
  142.          Width           =   2004
  143.       End
  144.       Begin Label Label1 
  145.          Alignment       =   2  'Center
  146.          AutoSize        =   -1  'True
  147.          BackColor       =   &H00808000&
  148.          Caption         =   "Compuserve at 73027,3307"
  149.          Height          =   240
  150.          Index           =   3
  151.          Left            =   624
  152.          TabIndex        =   2
  153.          Top             =   1320
  154.          Width           =   2724
  155.       End
  156.       Begin Label Label1 
  157.          Alignment       =   2  'Center
  158.          AutoSize        =   -1  'True
  159.          BackColor       =   &H00808000&
  160.          Caption         =   "Michael Haschka:"
  161.          Height          =   240
  162.          Index           =   7
  163.          Left            =   1056
  164.          TabIndex        =   1
  165.          Top             =   960
  166.          Width           =   1812
  167.       End
  168.    End
  169. Sub AboutOk_Click ()
  170.     Unload AboutBox
  171. End Sub
  172. Sub Form_DblClick ()
  173. Unload AboutBox
  174. End Sub
  175. Sub Form_Load ()
  176.     Left = (Screen.Width - Width) \ 2
  177.     Top = (Screen.Height - Height) \ 2
  178. Label1(0).Caption = "GetMoney Version " + Versnum$
  179. Label3D1.BorderThickness = 1
  180. If RegStat = SerialNum$ Then
  181. Label1(5).Caption = First + " " + Last
  182. End If
  183. End Sub
  184.